Private Sub IVehiculo_consumir(ByVal c As Double)
    IVehiculo_consumo = IVehiculo_consumo + c
    Debug.Print "  Motocicleta consume " & c & " - Acum " & IVehiculo_consumo
End Sub
